<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><title>R: Weight Loss Data from an Obese Patient</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" type="text/css" href="R.css">
</head><body>

<table width="100%" summary="page for wtloss"><tr><td>wtloss</td><td align="right">R Documentation</td></tr></table>

<h2>
Weight Loss Data from an Obese Patient
</h2>

<h3>Description</h3>


<p>The data frame gives the weight, in kilograms, of an obese patient at 52
time points over an 8 month period of a weight rehabilitation programme.
</p>


<h3>Usage</h3>

<pre>
wtloss
</pre>


<h3>Format</h3>


<p>This data frame contains the following columns:
</p>

<dl>
<dt><code>Days</code></dt><dd>
<p>time in days since the start of the programme.
</p>
</dd>
<dt><code>Weight</code></dt><dd>
<p>weight in kilograms of the patient.
</p>
</dd>
</dl>



<h3>Source</h3>


<p>Dr T. Davies, Adelaide.
</p>


<h3>References</h3>


<p>Venables, W. N. and Ripley, B. D. (2002)
<EM>Modern Applied Statistics with S.</EM> Fourth edition.  Springer.
</p>


<h3>Examples</h3>

<pre>
wtloss.fm &lt;- nls(Weight ~ b0 + b1*2^(-Days/th),
    data = wtloss, start = list(b0=90, b1=95, th=120))
wtloss.fm
plot(wtloss)
with(wtloss, lines(Days, fitted(wtloss.fm)))
</pre>


</body></html>
